Imports System
Imports Microsoft.VisualBasic
  Partial Class addVehicleStep3_aspx_vb
    Inherits Functions
    Public strGrey As Object
    Public rowNumber As Integer 
    Public subDo As String 
    Public clientCount As Object 
    Public userID As Object ' System.Object
    Public country As Object ' System.Object
    Public clientType As Object
    Public client As Object 
    Public street As String 
    Public zipcode As String 
    Public city As String 
    Public areacode As String 
    Public telephone As String 
    Public email As String 
    Public cin As String 
    Public partnerName As Object ' System.Object
    Public partnerID As Object 
    Public dealerID As Object 
    Public dealer As Object ' System.Object
    Public client_lastName As String
    Public companyName As String
    Public chooseClient As Object



    Public Function CleanString(base As String) As String
        If Len(base) > 0 Then
            base = Trim(base)
            base = Replace(CStr(base), "'", "")
            base = Replace(CStr(base), """", "")
            base = Replace(CStr(base), "<", "")
            base = Replace(CStr(base), ">", "")
            base = Replace(CStr(base), "=", "")
        End If
        CleanString = base
    End Function



End Class
